home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / オンラインソフト / 9.ウェブ作成ツール / HTML Grinder v3.35.sit / HTML Grinder v3.35 / Grinder Tools / Altifier / background_2757.xml next >
Extensible Markup Language  |  1998-09-23  |  3KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2757</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3170.css" />
  10.     <part>
  11.         <id>2</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>127</top>
  23.             <right>17</right>
  24.             <bottom>144</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on converter thefile,thecontentsglobal totalChangesput thecontents into newcontents--"<img,src,,embed"put checktags(thefile,thecontents,"all","<img,src,,embed") into theImages--put inlinedImages(thefile,thecontents) into theImagesrepeat with x = the number of lines in theImages down to 1set cursor to busyget line x of theImagesif "Error:" is in item 2 of it and "File Not Found" is not in item 2 of it then--skip syntax errors, but not if the only problem--is that the image file couldn't be foundnext repeatend ifput item 5 of it into thisImageput item 6 of it into thestartput item 7 of it into theEndput char thestart to theend of thecontents into theHTMLCodeput addAltTag(thisImage,theHTMLCode) into newHTMLCodeif char 1 to 6 of newHTMLCode is "error:" then next repeatput newHTMLCode into char thestart to theEnd of newcontentsadd 1 to totalchangesend repeatif newcontents <> thecontentsthen replacefile thefile,newcontentsend converteron alldoneglobal totalchangesget "ALT parameters were added to" && totalchanges && "image tags."put "0" into totalchangessend "alldone it" to homie()end alldonefunction addAltTag theImage,theHTMLCodeif (theHTMLCode contains "alt=" or theHTMLCode contains "alt =")then return "Error: Already contains ALT tag."put theimage into theAltTag--set the itemdelimiter to "/"put last item of theAltTag into theAltTagset the itemdelimiter to "."if the last item of theAltTag is in "gif,jpeg,jpg"then delete last item of theAltTagset the itemdelimiter to ","--put "alt=" & quote & theAltTag & quote into theAltTagreturn char 1 to 4 of theHTMLCode && theAltTag & char 5 to 30000 of theHTMLCodeend addAltTag</script>
  43. </background>
  44.